home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / DSGNMENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-07-21  |  2.0 KB  |  56 lines
  1. 10  'DSGNMENU - R/L/C/ Circuits Menu - 05 JUL 96 rev. 21 JUL 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  COMMON UL$,U$,PI,EX$,CKT$,T$
  4. 40  CLS:KEY OFF:COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  U$="#####,###.###"
  7. 80  PI=3.14159
  8. 90  '
  9. 100  COLOR 15,2
  10. 110  PRINT " RESISTOR/INDUCTOR/CAPACITOR CIRCUIT DESIGN";
  11. 120  PRINT TAB(57);"by George Murphy VE3ERP ";
  12. 130  COLOR 1,0:PRINT STRING$(80,223);:COLOR 7,0
  13. 140  LOCATE 3:K=15:GOSUB 400
  14. 150  PRINT
  15. 160  PRINT " Press number in ( ) for:"
  16. 170  PRINT UL$;
  17. 180  PRINT "   (1) R/C Circuit Design"
  18. 190  PRINT "   (2) R/L Circuit Design"
  19. 200  PRINT "   (3) L/C Circuit Design"
  20. 210  PRINT "   (4) R/L/C Circuit Design"
  21. 220  PRINT
  22. 230  PRINT "   (0) EXIT";
  23. 240  LOCATE 16,31:PRINT "VARPTR";STRING$(46,"SOUND");"COLOR"
  24. 250  LOCATE 17,31:PRINT "CALL This program is based on data presented in   CALL"
  25. 260  LOCATE 18,31:PRINT "<0xB5!> ";CHR$(34);"Programs for Electronic Circuit Design";
  26. 270  PRINT CHR$(34);" by  PSET"
  27. 280  LOCATE 19,31:PRINT "CALL David Leithauser (Radio Shack Cat.# 62-1054) CALL"
  28. 290  LOCATE 20,31:PRINT "CLS";STRING$(46,"SOUND");"'"
  29. 300  Z$=INKEY$:IF Z$=""THEN 300
  30. 310  IF Z$="0"THEN CLS:RUN EX$
  31. 320  IF Z$="1"THEN CLS:CKT$="RC":T$=" RESISTOR/CAPACITOR CIRCUITS":CHAIN"dsgnrc"
  32. 330  IF Z$="2"THEN CLS:CKT$="RL":T$=" RESISTOR/INDUCTOR CIRCUITS":CHAIN"dsgnrc"
  33. 340  IF Z$="3"THEN CLS:CKT$="LC":T$=" INDUCTOR/CAPACITOR CIRCUITS":CHAIN"dsgnrc"
  34. 350  IF Z$="4"THEN CLS:CKT$="RLC":CHAIN"dsgnrlc"
  35. 360  GOTO 300
  36. 370  '
  37. 380  END
  38. 390  '
  39. 400  '.....R/C diagrams
  40. 410  COLOR 0,7
  41. 420  LOCATE ,K:PRINT "               VARPTRSOUNDSOUNDSOUNDRSOUNDSOUNDSOUNDCOLOR                            "
  42. 430  LOCATE ,K:PRINT " DEFDBLSOUNDSOUNDRSOUNDSOUNDSOUNDCSOUNDSOUNDDEFDBL  DEFDBL<0xB4!>       BLOADDEFDBL       R/C CIRCUITS        "
  43. 440  LOCATE ,K:PRINT "               CLSSOUNDSOUNDSOUNDCSOUNDSOUNDSOUND'                            "
  44. 450  LOCATE ,K:PRINT "               VARPTRSOUNDSOUNDSOUNDRSOUNDSOUNDSOUNDCOLOR                            "
  45. 460  LOCATE ,K:PRINT " DEFDBLSOUNDSOUNDRSOUNDSOUNDSOUNDLSOUNDSOUNDDEFDBL  DEFDBL<0xB4!>       BLOADDEFDBL       R/L CIRCUITS        "
  46. 470  LOCATE ,K:PRINT "               CLSSOUNDSOUNDSOUNDLSOUNDSOUNDSOUND'                            "
  47. 480  LOCATE ,K:PRINT "               VARPTRSOUNDSOUNDSOUNDLSOUNDSOUNDSOUNDCOLOR                            "
  48. 490  LOCATE ,K:PRINT " DEFDBLSOUNDSOUNDLSOUNDSOUNDSOUNDCSOUNDSOUNDDEFDBL  DEFDBL<0xB4!>       BLOADDEFDBL       L/C CIRCUITS        "
  49. 500  LOCATE ,K:PRINT "               CLSSOUNDSOUNDSOUNDCSOUNDSOUNDSOUND'                            "
  50. 510  LOCATE ,K:PRINT "               VARPTRSOUNDSOUNDSOUNDRSOUNDSOUNDSOUNDCOLOR    VARPTRSOUNDRSOUNDSOUNDSOUNDLSOUNDCOLOR    VARPTRSOUNDRSOUNDSOUNDSOUNDLSOUNDCOLOR  "
  51. 520  LOCATE ,K:PRINT " DEFDBLSOUNDRSOUNDSOUNDLSOUNDSOUNDCSOUNDDEFDBL  DEFDBLBEEPSOUNDSOUNDSOUNDLSOUNDSOUNDSOUNDBEEPDEFDBL  DEFDBL<0xB4!>       BLOADDEFDBL  DEFDBL<0xB4!>       BLOADDEFDBL "
  52. 530  LOCATE ,K:PRINT "               CLSSOUNDSOUNDSOUNDCSOUNDSOUNDSOUND'    CLSSOUNDSOUNDSOUNDCSOUNDSOUNDSOUND'    CLSSOUNDRSOUNDSOUNDSOUNDCSOUND'  "
  53. 540  LOCATE ,K:PRINT "                                R/L/C CIRCUITS      "
  54. 550  COLOR 7,0
  55. 560  RETURN
  56.